Small recover-this-file improvement

* lisp/files.el (recover-this-file): Explicit error if not
visiting a file.  (Bug#23671)

diff --git a/lisp/files.el b/lisp/files.el
index 7c9271e2f44e3c99bcc411001294936119b9e7f1..c7de4453d75747cdf05fc16c876bfde8030514a4 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -5838,6 +5838,8 @@ an auto-save file."
 (defun recover-this-file ()
   "Recover the visited file--get contents from its last auto-save file."
   (interactive)
+  (or buffer-file-name
+      (user-error "This buffer is not visiting a file"))
   (recover-file buffer-file-name))
 
 (defun recover-file (file)